   1 REM     "SPATIO-JEEP"      \
        (C); *NICOLAS TRUB/1984 \  
             *SINCLAIR/ZX81/16K.
   2 GOTO 4
   3 SAVE "SPATIO-JEEP"
   4 PRINT AT 5,8;"*SPATIO-JEEP*";AT 5,8;"spatiojeep"
   5 PRINT AT 7,2;"\
VOUS DEVEZ ACHEMINER VOTRE      \
VEHICULE INTERSIDERAL JUSQUAU  \
POINT z OU VOUS ATTEND LE       \
COMMANDANT EN CHEF DES FORCES   \
GALACTIQUES..................   \
POUR CONTROLER::PROPULTION     \
               :CANON LASER    \
               :TREMPLIN       \
               :RETRO-FREIN    \
               :ASTRO-PINCES"
   6 PRINT AT 19,6;"tapezunetouche";AT 19,6;" TAPEZ UNE TOUCHE "
   7 IF INKEY$<>"" THEN GOTO 10
   8 PRINT "\
"
   9 GOTO 4
  10 LET A=20
  11 LET S=3
  12 LET B=30
13 CLS
14 REM -------------------------
15 FOR E=0 TO 50
16 PRINT AT INT(RND*19),INT(RND*30);"."
17 NEXT E
  18 PRINT AT 0,0;"\
seuilderesi\
stance3zone1indicationra\
dar\
"
19 LET SC=0
20 LET N=0
21 LET W=0
22 FOR F=0 TO 5
23 PRINT AT 2,17;"MINE";AT 2,17;"mine"
24 NEXT F
25 LET T=INT(RND*13)+5
26 LET Y=0
27 RAND
30 REM *BOUCLE;1*
32 LET B=B-2
33 IF B<>0 THEN GOTO 37
34 LET N=N+1
35 LET SC=SC+30
36 LET B=30
37 PRINT AT 19,18;"       "
38 IF N=3 THEN GOTO 100
40 PRINT AT 20,B;"X  "
41 PRINT AT 21,0;""
50 PRINT AT A,15;"0-0",AT A-1,15;"(=>"
54 PRINT AT A-2,15;"   "
55 LET A=20 
56 PRINT AT 20,0;"      "
59 PRINT AT 21,0;"\
"
60 IF INKEY$="7" THEN GOTO 62
61 GOTO 70
62 LET A=19
63 PRINT AT A+1,15;"   "
64 PRINT AT 18,15;")->"
65 LET SC=SC-2
70 IF A<>20 THEN GOTO 80
72 IF B=17 OR B=16 OR B=15 THEN GOSUB 1000
80 IF INKEY$="8" THEN PRINT AT 19,18;"------*"
89 LET Q=0
90 GOTO 30
100 REM -------------------------
102 PRINT AT 1,29;("2" AND NOT Q)+("8" AND Q)
103 LET B=30
104 LET A=20
105 LET N=0
106 LET X=0
107 FOR F=0 TO 10
108 PRINT AT 2,17;"ROCHERS";AT 2,17;"rochers"
109 NEXT F
110 REM *BOUCLE;2*
115 LET B=B-2
120 IF NOT B THEN LET N=N+1
123 IF N=4 AND Q THEN GOTO 730
125 IF N=5 THEN GOTO 200
126 IF NOT B THEN LET SC=SC+30
127 IF NOT B THEN LET B=30
130 PRINT AT A,15;"0-0";AT A-1,15;")=>";AT A-2,15;"   "
133 IF Q THEN PRINT AT 20,B;"i  "
134 PRINT AT 21,0;"\
"
135 IF NOT Q THEN PRINT AT 20,B;"h  "
136 IF X THEN GOTO 139
137 IF NOT Q THEN PRINT AT 19,B;"a  "
138 IF Q THEN PRINT AT 19,B;"/  "
139 IF B<3 THEN LET X=0
140 PRINT AT 19,1;"  ";AT 20,1;"  "
143 LET A=20 
144 PRINT AT 21,0;""
145 IF INKEY$="7" THEN GOTO 147
146 GOTO 150
147 LET A=19
148 PRINT AT 20,15;"    "
149 LET SC=SC-5
150 IF INKEY$="8" THEN GOTO 152
151 GOTO 160
152 PRINT AT 19,18;"------*"
153 IF B=24 THEN GOTO 157
154 PRINT AT 19,18;"       "
155 LET SC=SC-5
156 GOTO 159
157 LET X=1
159 PRINT AT 19,18;"       "
160 IF A<>20 THEN GOTO 170
161 IF B=15 OR B=16 OR B=17 THEN GOSUB 1000
170 IF X THEN GOTO 175
172 IF A<>19 THEN GOTO 175
173 IF B=15 OR B=16 OR B=17 THEN GOSUB 1000
175 GOTO 190
190 GOTO 110
200 REM -------------------------
201 LET B=30
202 LET A=20
203 LET C=21
204 FOR B=30 TO 0 STEP -1
205 IF B=14 THEN PRINT AT 21,15;"0-0";AT 20,15;")=>";AT 19,15;"   "
206 PRINT AT 21,B;" ";AT 2,17;"TUNNEL";AT 2,17;"tunnel"
207 NEXT B
208 LET B=30
209 LET A=21
210 REM *BOUCLE;2*
215 PRINT AT 1,29;"3"
220 LET B=B-2
222 PRINT AT C,B;"";AT C-1,B;"  ";AT C-2,B;"  ";AT C-3,B;"   ";AT C-4,B;"  ";AT C-5,B;" ";AT C-6,B;""
223 PRINT AT A,15;"0-0";AT A-1,15;")=>";AT A-2,15;"   "
224 IF B THEN GOTO 230
225 PRINT AT C,B;""
227 LET C=C-1
228 LET SC=SC+30
229 LET B=30
230 PRINT AT C,0;"  ";AT C-4,0;"  "
232 IF (A=C-1 AND B>16) THEN LET A=C
233 IF (A=C-2 AND B<16) THEN LET A=C-1
234 IF INKEY$="7" THEN GOTO 236
235 GOTO 239
236 LET A=A-1
237 LET SC=SC-5
238 PRINT AT A+1,15;"   "
242 IF A=C AND B=16 THEN GOTO 244 
243 GOTO 250
244 GOSUB 1000
248 LET A=A-1
249 PRINT AT A+1,15;""
260 IF C<=15 THEN GOTO 300
270 IF INKEY$="8" THEN PRINT AT A-1,18;"------*";AT A-1,18;"       "
280 GOTO 220
300 REM -------------------------
301 PRINT AT 1,29;"4"
302 LET Y=0
303 LET N=0
304 LET A=18
305 PRINT AT 13,0;"    ";TAB 0;"  "
306 FOR F=29 TO 0 STEP -2
307 PRINT AT 10,F;"  ";AT 11,F;"  ";AT 16,F;"  ";AT 17,F;"  ";AT 18,F;"  ";AT 2,17;"FUEL";AT 2,17;"fuel"
308 IF F=13 THEN PRINT AT 14,15;"   ";AT 15,15;"   ";AT A,15;"0-0";AT A-1,15;")=>"
309 NEXT F
311 REM *BOUCLE;4*
312 LET B=B-4
313 IF B=1 THEN LET N=N+1
314 PRINT AT 13,B;"    ";AT 14,B;"     ";
315 PRINT AT 19,0;"";AT 16,0;"  ";AT 17,0;"  ";AT 18,0;"  ";AT 10,0;" "
316 IF NOT Y THEN PRINT AT A,15;"0-0";AT A-1,15;")=>";AT A-2,15;"   "
317 IF Y THEN LET SC=SC-6
318 IF Y THEN PRINT AT A,15;"0-0";AT A-1,15;")=<";AT A-1,17;"C";AT A-2,15;"   "
320 LET A=18
321 PRINT AT 19,0;""
322 IF INKEY$="7" THEN GOTO 324
323 GOTO 326
324 LET A=17
325 PRINT AT A+1,15;"   "
326 IF Y THEN PRINT AT A-1,17;"-"
327 IF INKEY$="8" THEN LET SC=SC-5
328 IF INKEY$="8" THEN PRINT AT A-1,18;"------*",AT A-1,18;"       "
329 IF Y THEN PRINT AT A-1,17;"<"
330 IF B<>2 THEN GOTO 338
331 LET N=N+1
332 LET SC=SC+30
334 LET B=30
338 IF INKEY$="0" THEN LET Y=1
340 IF INKEY$="0" THEN LET SC=SC-5
342 IF N>0 THEN PRINT AT 17,B-1;"    ";AT 17,2;"     "
344 IF INKEY$="1" THEN LET Y=0
345 LET R=INT (RND*50)
346 IF B-1<>17 OR NOT N THEN GOTO 350
347 IF Y THEN LET SC=SC+R
348 IF NOT Y  THEN LET SC=SC-R
349 PRINT AT 19,0;("gage" AND NOT Y)+("bonus" AND Y);("-" AND NOT Y);R
350 IF B-1=17 AND Y AND A=17 THEN PAUSE 30
351 IF N>0 AND NOT Y AND B-1=17 THEN GOSUB 1000
352 IF B-1=17 AND A=17 THEN PAUSE 30
355 IF N=4 THEN GOTO 400
390 GOTO 310
400 REM -------------------------
401 FOR F=0 TO 10
402 LET N=0
403 LET B=30
404 PRINT AT 17,27;"    ";AT 2,17;"TREMPLIN";AT 2,17;"tremplin"
405 LET K=0
406 LET A=18
407 LET B=28
408 PRINT AT 1,29;"5"
409 NEXT F
410 LET B=B-2
412 PRINT AT 18,B;"  ";AT 17,B+1;"  ";AT 19,B+3;"  ";AT 20,B+3;"  ";AT 21,B+3;"xo"
413 LET N=N-2
414 IF K THEN GOTO 418
416 PRINT AT A,15;"0-0";AT A-1,15;"(=>";AT A-2,15;"   "
418 IF INKEY$="8" AND B>17 THEN PRINT AT A-1,17;"------*",AT A-1,17;"       "
422 IF INKEY$="6" THEN LET K=1
424 IF K THEN PRINT AT A,15;"0  ";AT A-1,15;"(/ ";AT A-2,15;" 0";AT A-3,15;"   "
430 IF K THEN GOTO 435
431 IF B=18 THEN GOSUB 1000
432 IF NOT B THEN  GOTO 482
435 IF NOT K THEN  GOTO 440
436 IF B=16 THEN LET A=16
438 IF K THEN LET SC=SC-5
440 IF (B<=8) AND K THEN LET A=A+1
442 IF A=21 THEN GOTO 500
444 IF B<=2 AND NOT K THEN GOTO 480
479 GOTO 410
480 LET A=20
482 PRINT AT 19,15;"   ";AT 18,15;"   ";AT 17,15;"   ";AT 16,15;"   ";
483 GOTO 500
500 REM -------------------------
501 PRINT AT 2,17;"piege"
502 LET A=20
503 PRINT AT 1,29;"6";AT 21,15;"x"
504 PRINT AT 17,0;"     ";TAB 0;"     ";TAB 0;"     ";TAB 0;"     "
506 LET B=27
507 LET N=0
508 LET K=0
509 LET SC=SC+30
510 REM *BOUCLE;6*
511 LET B=B-2
512 PRINT AT A,15;"0-0";AT A-1,15;")=>";AT A-2,15;"   "
514 PRINT AT 21,0;"\
oxoxoxoxoxoxoxoxoxoxoxoxoxoxoxo "
515 IF INKEY$="8" THEN GOTO 517
516 GOTO 520
517 LET SC=SC-5
519 PRINT AT A-1,18;"------*",AT A-1,18;"       "
520 PRINT AT 21,0;"\
xoxoxoxoxoxoxoxoxoxoxoxoxoxoxox "
522 PRINT AT 21,B;"    "
523 IF A=19 THEN LET A=20
524 IF B<>3 THEN GOTO 530
525 LET SC=SC+30
526 LET N=N+1
527 LET K=0
528 LET B=27
530 IF B=17 THEN LET A=A+1
531 IF K THEN LET SC=SC+1
537 IF INKEY$="7" THEN GOTO 539
538 GOTO 543
539 LET A=A-1
540 LET SC=SC-5
541 PRINT AT A+1,15;"   "
542 IF A<>21 THEN GOTO 549
543 IF B=15 THEN LET K=1
544 IF B=13 THEN GOTO 546
545 GOTO 549
546 GOSUB 1000
547 PRINT AT 21,15;"xox"
548 LET A=A-1
549 IF A=19 THEN LET SC=SC-5
550 IF N=4 THEN GOTO 600
552 IF K AND B=5 THEN LET SC=SC-5
554 IF K THEN PRINT AT 21,B+2;"*"
590 GOTO 510
601 PRINT AT 1,29;"7";AT 21,0;"oxoxoxoxoxoxoxoxoxoxoxoxoxoxoxox"
602 LET L=0
603 LET K=0
604 LET B=28
605 FOR D=30 TO 0 STEP -2
606 PRINT AT 21,D;""
607 PRINT AT 2,17;"SOUCOUPE";AT 2,17;"soucoupe"
608 NEXT D
609 LET N=0
610 REM *BOUCLE;7*
611 IF B<>4 THEN GOTO 614
612 LET N=N+1
613 PRINT AT 5,B-3;"     "
614 LET B=B-2
616 IF B=2 THEN LET B=28
620 PRINT AT 20,15;"0-0";AT 19,15;")=>";AT 18,15;"   "
621 PRINT AT 21,0;"\
  "
622 IF INKEY$="8" THEN GOTO 626
624 GOTO 631
 626 PRINT AT 18,16;".";AT 17,16\
;".";AT 16,16;".";AT 15,16;".";A\
T 14,16;".";AT 13,16;".";AT 12,1\
6;".";AT 11,16;".";AT 10,16;".";\
AT 9,16;".";AT 8,16;".";AT 7,16;\
".";AT 6,16;".";AT 5,16;"."
 627 PRINT AT 18,16;" ";AT 17,16\
;" ";AT 16,16;" ";AT 15,16;" ";A\
T 14,16;" ";AT 13,16;" ";AT 12,1\
6;" ";AT 11,16;" ";AT 10,16;" ";\
AT 9,16;" ";AT 8,16;" ";AT 7,16;\
" ";AT 6,16;" ";AT 5,16;" "
628 LET K=1
629 LET SC=SC-5
630 PRINT AT 19,18;"------*";AT 19,18;"         "
631 IF L THEN GOTO 634
632 PRINT AT T,B-1;"  "
634 IF K AND B=14 THEN LET L=1
636 IF L THEN PRINT AT T,B-1;"    "
638 IF L THEN LET SC=SC+2
640 IF B=4 THEN LET L=0
642 LET K=0
644 IF B=2 THEN PRINT AT 5,B-1;"     "
646 PRINT AT 21,0;"\
  "
648 PRINT AT T,3;"    "
650 IF N=4 THEN GOTO 700
690 GOTO 610
700 REM -------------------------
701 PRINT AT T,26;"        "
705 FOR F=28 TO 0 STEP -2
706 PRINT AT 21,F;""
707 NEXT F
715 LET Q=1
720 GOTO 100
750 GOTO 800
800 REM -------------------------
801 PRINT AT 1,20;"9"
802 LET A=20
804 FOR F=30 TO 0 STEP -2
805 PRINT AT 2,17;"BASE EN VUE";AT 2,17;"baseenvue"
806 PRINT AT 21,F;""
807 NEXT F
808 LET B=15
809 LET J=15
810 REM *BOUCLE;8*
811 IF B=2 THEN GOTO 814
812 LET B=B-1
814 PRINT AT A,B;"0-0 ";AT A-1,B;")=> "
816 PRINT AT 21,0;"\
  "
817 IF B>2 THEN GOTO 819
818 PRINT AT 21,J+8;"";AT 20,J+12;"h   h ";AT 19,J+12;" a a ";AT 18,J+12;"(OzO) ";AT 17,J+12;"  "
820 PRINT AT 21,0;"\
  "
822 IF B=2 THEN LET J=J-1
824 IF J=5 THEN GOTO 900
890 GOTO 810

900 REM -------------------------
902 PRINT AT 21,13;""
903 LET H=0
905 LET B=2
906 PRINT AT 20,16;"L"
907 LET A=20
911 IF H THEN GOTO 913
912 LET B=B+1
913 REM *BOUCLE;8*
914 IF INKEY$="5" AND B>=12 THEN LET H=1
920 PRINT AT A,B;" 0-0";AT A-1,B;" )=>";
921 IF INKEY$="5" THEN LET SC=SC-5
922 IF INKEY$="5" AND B=12 THEN GOTO 950
924 IF B>12 THEN GOTO 928
926 GOTO 934
928 GOSUB 1000
930 PRINT AT 20,13;"0-0";AT 19,13;")=>"
932 GOTO 950
934 PRINT AT 19,2;"  ";AT 20,2;"  "
940 GOTO 910
950 REM arriveedanslabase
 955 PRINT AT 8,2;\
 "lordinateurdebordprend    \
  enchargelasuitedes    \
  operations    "
957 PAUSE 30
960 REM *BOUCLE;9*
962 LET A=A-1
963 PRINT AT A,13;"0-0";AT A-1,13;")=>"
964 IF A<20 THEN PRINT AT A+1,13;""
966 IF A<19 THEN PRINT AT A+2,13;"  "
968 IF A=16 THEN GOTO 972
970 GOTO 960
972 PRINT AT 17,16;""
974 LET B=B+1
976 PRINT AT 16,B-1;" 0-0";AT 15,B-1;" )=>"
978 IF B=19 THEN GOTO 981
980 GOTO 972
981 PRINT AT 7,0;"\
VOUS ETES PARVENU A MENER VOTRE \
 VEHICULE JUSQUA LA BASE z     \
  OU VOUS ETES RECUS AVEC LES   \
  HONNEURS RESERVES AU HEROS    \
(CHAMPAGNE,CAVIAR,MEDAILLE...)"
982 PRINT AT 5,11;"BRAVO";AT 5,11;"bravo"
983 PRINT AT 2,0;"\
"
986 PRINT AT 12,11;"SCORE";AT 12,11;"score";AT 13,12;(SC+100)+(100*S)
990 PRINT AT 14,5;"uneautremission";AT 15,11;"on"
992 IF INKEY$="O" THEN GOTO 2100
994 IF INKEY$="N" THEN GOTO 3000
998 GOTO 982
999 REM endomagementpartiel
1000 PRINT AT 2,17;"bonus";SC
1001 FOR F=0 TO 15
1002 PRINT AT A,16;"x";AT A,16;"X"
1003 NEXT F
1005 LET S=S-1
1007 LET SC=SC-10
1008 IF SC<0 THEN LET SC=0
1010 IF S=0 THEN GOTO 2000
1020 PRINT AT 1,20;S
1030 PRINT AT 2,17;""
1050 RETURN
1999 REM endomagementtotal
2000 RAND USR 12345
2001 FOR F=0 TO 5
2002 PRINT AT A,15;"";AT A-1,15;"";AT A-2,15;"   "
2003 PRINT AT A,15;"0-0";AT A-1,15;")=>"
2004 PRINT AT 1,20;"0";AT 2,17;"DESTRUCTION";AT 1,20;"";AT 2,17;"destruction";
2005 NEXT F
2006 RAND USR 12345
2009 PRINT AT A,15;"/<:";AT A-1,15;" . ";AT A-2,15;"   "
2010 PRINT AT 2,17;"SCORE";SC;""
2020 PRINT AT 8,4;"\
LENDOMAGEMENT DE VOTRE         \
VEHICULE A ATTEINT SON SEUIL    \
CRITIQUE"
2030 PRINT AT 15,7;"UNE AUTRE MISSION ?";AT 15,7;"uneautremission"
2033 PRINT AT 17,13;" (O/N) "; AT 17,13;"on"
2035 PRINT AT 1,20;"0"; AT 1,20;"x"
2040 IF INKEY$="N" THEN GOTO 3000
2050 IF INKEY$="O" THEN GOTO 2100
2060 GOTO 2030
2100 FOR F=0 TO 20
2110 SCROLL
2120 NEXT F
2125 CLS
2130 GOTO 4
3000 CLS
3010 PRINT "fin";
3020 GOTO 3010
9000 REM SAUVEGARDE
9010 SAVE"SPATIO-JEEP"
9020 FOR F=0 TO 500
9030 IF INKEY$="" THEN NEXT F
9040 FOR F=0 TO 19
9050 PRINT AT F,0;"                                "
9060 NEXT F
9070 GOTO 4
